home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / new / clide.arj / WAT.CH < prev   
Text File  |  1993-02-21  |  3KB  |  74 lines
  1.  
  2. /*────────────────────────────────────────────────────────────────────────────
  3.                                      WAT.CH
  4.   FIND & REPLACE CLAUSES.
  5.   Wed  08-07-1991  16:19:22
  6.  
  7.   The #xcommand & #xtranslate work like #command & #translate except that the
  8.   4 letter abbreviations do not apply.
  9. ─────────────────────────────────────────────────────────────────────────────*/
  10.  
  11. //= = = = From Rick Spence Book = = = =
  12. #xcommand DEFAULT <var> TO <constant> [,<nvar> TO <ncon>] ;
  13.        => <var> := IIF( <var> = NIL, <constant>, <var> )  ;
  14.        [;<nvar> := IIF(<nvar> = NIL, <ncon>    , <nvar>)]
  15.  
  16. #xtranslate COMPILE(<cExpr>)           => &("{|| " + <cExpr> + "}")
  17.  
  18. #xtranslate ASHRINK(<ar>, <nLoc>)          => (ADEL( <ar>, <nLoc>), ;
  19.                                               ASIZE(<ar>, LEN(<ar>) - 1))
  20. #xtranslate ASHRINK(<ar>)                  => ASIZE(<ar>, LEN(<ar>) - 1)
  21.  
  22. #xtranslate AINSERT(<ar>,<nLoc> ,<item>) => (ASIZE(<ar>, LEN(<ar>) + 1),;
  23.                                               AINS(<ar>, <nLoc>),;
  24.                                                <ar>\[<nLoc>] := <item>)
  25. #xtranslate AINSERT(<ar>,<nLoc>) => (ASIZE(<ar>, LEN(<ar>) + 1),;
  26.                                     AINS(<ar>, <nLoc>))
  27.  
  28. /*= = = = From Jim Tamburrino = = = =*/
  29. #xcommand CURSOR_OFF               => SETCURSOR(0)
  30. #xcommand CURSOR_NORMAL            => SETCURSOR(1)
  31. #xcommand CURSOR_LOWER             => SETCURSOR(2)
  32. #xcommand CURSOR_FULL              => SETCURSOR(3)
  33. #xcommand CURSOR_UPPER             => SETCURSOR(4)
  34.  
  35. #translate {<m>/<d>/<y>}           => CTOD( #<m> + "/" + #<d> + "/" + #<y> )
  36.  
  37. #xtranslate Num2str(<n>)           => LTRIM(TRIM(STR( <n> )))
  38.  
  39.  
  40. //= = = = = = = = = From little ole me = = = = = = = =
  41.  
  42. #xtranslate Margin(<n>)            => SET(_SET_MARGIN, <n> )
  43. #xtranslate MsgRow(<n>)            => SET(_SET_MESSAGE,<n> )
  44.  
  45. #xtranslate BETWEEN(<a>,<b>,<c>)   => ( (<c>  >= <a>) .AND. (<c> <= <b>) )
  46. #xtranslate aTrim(<a>)             =>   Alltrim(<a>)
  47. #xtranslate ischar(<a>)            => ( Valtype(<a>) == 'C' )
  48.  
  49. #xcommand ENDWHILE [<*x*>]         => enddo
  50.  
  51. #xcommand @ <row> CENTERIT <sayxpr> [COLOR <acolor>]                        ;
  52.           =>                                                                ;
  53.              DEVPOS(<row>, INT((MAXCOL()+2-LEN(<sayxpr>))/2))               ;
  54.              ; DEVOUT(<sayxpr> [, <acolor>] )
  55.  
  56.  
  57. /*= = = = =  From Greg Lief Book  = = = =*/
  58.  
  59. #xtranslate  PROPER(<s>) => Upper(Left(<s>,1))+ Lower(substr(<s>, 2))
  60.  
  61. #xtranslate AddExtension( <file>, <ext> ) => ;
  62.             <file> := UPPER( <file> ) + IF(! "."+UPPER( <ext> ) $ ;
  63.                       UPPER( <file> ), "."+UPPER( <ext> ), '')
  64.  
  65.  
  66. /*= = = = =  From Dias Browse  = = = */
  67.  
  68. #xtranslate SET INSERT ON   => ;
  69.                 SetKey(22,{|| SetCursor(IIF(ReadInsert(!ReadInsert()), 1,2))})
  70.  
  71. #xtranslate SET INSERT OFF  => SetKey(22, NIL)
  72.  
  73.  
  74.